/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / fit

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 03 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 26 | 33 30 20 20 20 20 52 45 |.hts"..&|30    RE|
|00000150| 41 4c 20 57 65 69 67 68 | 74 28 31 3a 35 29 2c 50 |AL Weigh|t(1:5),P|
|00000160| 63 74 28 31 3a 35 29 2c | 43 28 30 3a 31 29 00 1b |ct(1:5),|C(0:1)..|
|00000170| 34 30 20 20 20 20 52 45 | 41 44 20 57 65 69 67 68 |40    RE|AD Weigh|
|00000180| 74 28 2a 29 2c 50 63 74 | 28 2a 29 00 00 1d 35 30 |t(*),Pct|(*)...50|
|00000190| 20 20 20 20 44 41 54 41 | 20 31 39 2c 20 32 38 2c |    DATA| 19, 28,|
|000001a0| 20 33 34 2c 20 33 37 2c | 20 34 38 00 00 22 36 30 | 34, 37,| 48.."60|
|000001b0| 20 20 20 20 44 41 54 41 | 20 39 2e 36 2c 20 36 2e |    DATA| 9.6, 6.|
|000001c0| 34 2c 20 35 2e 32 2c 20 | 34 2e 30 2c 20 33 2e 31 |4, 5.2, |4.0, 3.1|
|000001d0| 00 1e 37 30 20 20 20 20 | 4d 41 54 20 57 65 69 67 |..70    |MAT Weig|
|000001e0| 68 74 3d 28 31 30 30 30 | 29 2a 57 65 69 67 68 74 |ht=(1000|)*Weight|
|000001f0| 00 29 38 30 20 20 20 20 | 43 41 4c 4c 20 46 69 74 |.)80    |CALL Fit|
|00000200| 28 35 2c 57 65 69 67 68 | 74 28 2a 29 2c 50 63 74 |(5,Weigh|t(*),Pct|
|00000210| 28 2a 29 2c 31 2c 43 28 | 2a 29 29 00 00 47 39 30 |(*),1,C(|*))..G90|
|00000220| 20 53 74 79 6c 65 31 3a | 20 20 49 4d 41 47 45 20 | Style1:|  IMAGE |
|00000230| 22 31 2e 20 52 61 74 65 | 20 3d 20 22 2c 20 32 44 |"1. Rate| = ", 2D|
|00000240| 2e 31 44 2c 20 22 25 20 | 2d 22 2c 20 31 44 2e 36 |.1D, "% |-", 1D.6|
|00000250| 44 2c 20 22 25 2f 70 6f | 75 6e 64 20 78 20 57 65 |D, "%/po|und x We|
|00000260| 69 67 68 74 22 00 00 44 | 31 30 30 20 53 74 79 6c |ight"..D|100 Styl|
|00000270| 65 32 3a 20 49 4d 41 47 | 45 20 22 32 2e 20 52 61 |e2: IMAG|E "2. Ra|
|00000280| 74 65 20 3d 20 22 2c 20 | 36 44 2c 20 22 25 20 70 |te = ", |6D, "% p|
|00000290| 6f 75 6e 64 20 2f 20 57 | 65 69 67 68 74 20 2d 22 |ound / W|eight -"|
|000002a0| 2c 20 32 44 2e 31 44 2c | 20 22 25 22 00 22 31 31 |, 2D.1D,| "%"."11|
|000002b0| 30 20 20 20 50 52 49 4e | 54 20 55 53 49 4e 47 20 |0   PRIN|T USING |
|000002c0| 53 74 79 6c 65 31 3b 43 | 28 30 29 2c 43 28 31 29 |Style1;C|(0),C(1)|
|000002d0| 00 1b 31 32 30 20 20 20 | 4d 41 54 20 57 65 69 67 |..120   |MAT Weig|
|000002e0| 68 74 3d 28 31 29 2f 57 | 65 69 67 68 74 00 00 29 |ht=(1)/W|eight..)|
|000002f0| 31 33 30 20 20 20 43 41 | 4c 4c 20 46 69 74 28 35 |130   CA|LL Fit(5|
|00000300| 2c 57 65 69 67 68 74 28 | 2a 29 2c 50 63 74 28 2a |,Weight(|*),Pct(*|
|00000310| 29 2c 31 2c 43 28 2a 29 | 29 00 00 23 31 34 30 20 |),1,C(*)|)..#140 |
|00000320| 20 20 50 52 49 4e 54 20 | 55 53 49 4e 47 20 53 74 |  PRINT |USING St|
|00000330| 79 6c 65 32 3b 43 28 31 | 29 2c 2d 43 28 30 29 00 |yle2;C(1|),-C(0).|
|00000340| 00 18 31 35 30 20 20 20 | 44 45 4c 53 55 42 20 46 |..150   |DELSUB F|
|00000350| 4e 41 69 20 54 4f 20 45 | 4e 44 00 09 31 36 30 20 |NAi TO E|ND..160 |
|00000360| 20 20 45 4e 44 00 ff ff |                         |  END...|        |
+--------+-------------------------+-------------------------+--------+--------+